home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 3 / CD ACTUAL 3.iso / linux / incoming / jstools-.6v3 / jstools- / jstools-tk3.6v3.0 / lib / jtextedt.tcl < prev    next >
Encoding:
Text File  |  1995-02-05  |  9.3 KB  |  364 lines
  1. # jtextedt.tcl - support for EDT text bindings
  2. # 
  3. # Copyright 1994-1995 by Achim Bohnet <ach@rosat.mpe-garching.mpg.de>.
  4. # All rights reserved, except that this file may be freely redistributed
  5. # in whole or in part for non-profit, noncommercial use.
  6. #
  7. # Modified by Jay Sekora.  Achim's version was more general, sharing a lot
  8. # of procedures between Entry and Text bindings.  That's a direction I want
  9. # to go in, but I didn't have time to integrate it into my sources. ---j.
  10.  
  11. #     EDT (emulation of the standard VAX/VMS AXP/VMS editor)
  12.  
  13. ###############################################################################
  14. # to do:       - all commands repeatable (j:text does it but why j:text:bof??
  15. #        - use private selection for edt-/paste/cut/append/clear
  16. #        - edt:page does not work (see comment in jmouse* ??)
  17. ###############################################################################
  18.  
  19. proc j:tb:edt_init { {t Text} } {
  20.   global j_teb
  21.   j:debug "'edt' bound to '$t'"
  22.  
  23.   set j_teb(cutbuffer) {}
  24.   set j_teb(dragscroll,txnd) 0
  25.   set j_teb(dragscroll,delay) 50
  26.   set j_teb(scanpaste_time) 0
  27.   set j_teb(scanpaste_paste) 1
  28.  
  29.   set j_teb(keymap,$t) edt-normal
  30.   
  31.   # not impl. up to now: set j_ed(edt,$t,select,on) 0
  32.  
  33.   # in tk4, we need to make sure tkTextBind is called _before_
  34.   #   j:tb:key_bind!
  35.   j:tk4 {tkTextBind Enter}
  36.   
  37.   j:tb:key_bind $t
  38.   j:tb:mouse_bind $t
  39.   
  40.   j:tkb:mkmap Text edt-normal edt-normal {
  41.     {Up                j:tkb:up}
  42.     {Down            j:tkb:down}
  43.     {Left            j:tkb:left}
  44.     {Right            j:tkb:right}
  45.  
  46.     {Find            j:tb:beep}
  47.     {Insert            j:tb:beep}
  48.     {apLineDel            j:tb:beep}
  49.     {Select            j:tb:beep}
  50.     {Prior            j:tb:beep}
  51.     {Next            j:tb:beep}
  52.  
  53.     {KP_F1            j:tkb:edt:gold}
  54.     {KP_F2            j:tb:beep}
  55.     {KP_F2_X            j:tkb:edt:help-bindings}
  56.     {KP_F3            j:tb:beep}
  57.     {KP_F3_X            j:tkb:find-next}
  58.     {KP_F4            j:tkb:edt:del-line}
  59.  
  60.     {KP_0            j:tkb:edt:line}
  61.     {KP_1            j:tkb:edt:word}
  62.     {KP_2            j:tkb:edt:eol}
  63.     {KP_3            j:tkb:edt:char}
  64.     {KP_4            j:tkb:edt:advance}
  65.     {KP_5            j:tkb:edt:backup}
  66.     {KP_6            j:tb:beep}
  67.     {KP_6_X            j:tkb:edt:cut-range}
  68.     {KP_7            j:tkb:edt:page}
  69.     {KP_8            j:tb:beep}
  70.     {KP_8_X            j:tkb:edt:append}
  71.     {KP_9            j:tb:beep}
  72.     {KP_9_X            j:tkb:edt:replace}
  73.  
  74.     {KP_Subtract        j:tkb:edt:del-word}
  75.     {KP_Separator        j:tkb:edt:del-char}
  76.     {KP_Enter            j:tb:beep}
  77.     {KP_Decimal            j:tb:beep}
  78.     {KP_Decimal_X        j:tkb:edt:sel-range}
  79.  
  80.     {Return            j:tkb:insert_newline}
  81.     {BackSpace            j:tkb:delete_left}
  82.     {Delete            j:tkb:delete_left}
  83.  
  84.     {Control-DEFAULT        j:tkb:self_insert}
  85.     {DEFAULT            j:tkb:self_insert}
  86.     {Shift-DEFAULT        j:tkb:self_insert}
  87.   }
  88.  
  89.   j:tkb:mkmap Text edt-gold edt-normal {
  90.     {Up                j:tkb:up}
  91.     {Down            j:tkb:down}
  92.     {Left            j:tkb:left}
  93.     {Right            j:tkb:right}
  94.     
  95.     {Find            j:tb:beep}
  96.     {Insert            j:tb:beep}
  97.     {apLineDel            j:tb:beep}
  98.     {Select            j:tb:beep}
  99.     {Prior            j:tb:beep}
  100.     {Next            j:tb:beep}
  101.  
  102.     {KP_F1            j:tb:beep}
  103.     {KP_F2            j:tb:beep}
  104.     {KP_F2_X            j:tkb:edt:help}
  105.     {KP_F3            j:tb:beep}
  106.     {KP_F3_X            j:tkb:find-string}
  107.     {KP_F4            j:tkb:edt:restore-line}
  108.  
  109.     {KP_2            j:tb:beep}
  110.     {KP_2_X            j:tkb:edt:open-line}
  111.     {KP_1            j:tb:beep}
  112.     {KP_1_X            j:tkb:change-case}
  113.     {KP_2            j:tkb:edt:del-eol}
  114.     {KP_3            j:tb:beep}
  115.     {KP_3_X            j:tkb:literal-insert}
  116.     {KP_4            j:tkb:eof}
  117.     {KP_5            j:tkb:bof}
  118.     {KP_6            j:tkb:edt:ins-buffer paste}
  119.     {KP_7            j:tb:beep}
  120.     {KP_7_X            j:tkb:edt:command}
  121.     {KP_8            j:tb:beep}
  122.     {KP_8_X            j:tkb:edt:fill}
  123.     {KP_9            j:tb:beep}
  124.     {KP_9_X            j:tkb:edt:replace}
  125.  
  126.     {KP_Subtract        j:tkb:edt:restore-word}
  127.     {KP_Separator        j:tkb:edt:restore-char}
  128.     {KP_Enter            j:tb:beep}
  129.     {KP_Enter_X            j:tkb:edt:g-enter}
  130.     {KP_Decimal            j:tb:beep}
  131.     {KP_Decimal_X        j:tkb:edt:g-decimal}
  132.  
  133.     {0                j:tkb:continue_number}
  134.     {1                j:tkb:continue_number}
  135.     {2                j:tkb:continue_number}
  136.     {3                j:tkb:continue_number}
  137.     {4                j:tkb:continue_number}
  138.     {5                j:tkb:continue_number}
  139.     {6                j:tkb:continue_number}
  140.     {7                j:tkb:continue_number}
  141.     {8                j:tkb:continue_number}
  142.     {9                j:tkb:continue_number}
  143.  
  144.     {Control-DEFAULT        j:tb:beep}
  145.     {DEFAULT            j:tb:beep}
  146.     {Shift-DEFAULT        j:tb:beep}
  147.   }
  148.  
  149. #  j:bind:set_map edt-normal $class
  150. #        {Alt-a            literal-insert Σ}
  151. #        {Alt-A            literal-insert Σ}
  152. #        {Alt-o            literal-insert ÷}
  153. #        {Alt-O            literal-insert ╓}
  154. #        {Alt-u            literal-insert ⁿ}
  155. #        {Alt-U            literal-insert ▄}
  156. #        {Alt-s            literal-insert ▀}
  157. }
  158.  
  159. #####################################################################
  160. # Public routines
  161.  
  162. #####################################################################
  163.  
  164. proc j:tkb:edt:gold { w k a } {
  165.   j:tkb:new_mode edt-gold $w $k $a
  166. }
  167.  
  168. #####################################################################
  169.  
  170. proc j:tkb:edt:char { w k a } { j:tb:edt:move tkb "" $w $k $a }
  171.  
  172. proc j:tkb:edt:word { w k a } { j:tb:edt:move tkb word_ $w $k $a }
  173.  
  174. proc j:tb:edt:move { sfx range w k a } {
  175.   if [j:tb:edt:isForw $w] {
  176.     j:$sfx:${range}right $w $k $a
  177.   } else {
  178.     j:$sfx:${range}left $w $k $a
  179.   }
  180. }
  181.  
  182. proc j:tkb:edt:line { w k a } { j:tb:edt:line tkb bol $w $k $a }
  183.  
  184. proc j:tkb:edt:eol { w k a } { j:tb:edt:line tkb eol $w $k $a }
  185.  
  186. proc j:tb:edt:line { sfx to w k a } {
  187.   if [j:tb:edt:isForw $w] {
  188.     if [j:tb:is_$to $w] {
  189.       j:$sfx:down $w $k $a
  190.     }
  191.   } else {
  192.     if [j:tb:is_$to $w] {
  193.       j:$sfx:up $w $k $a
  194.     }
  195.   }
  196.   j:tkb:$to $w $k $a
  197. }
  198.  
  199. proc j:tkb:edt:page { w k a } { j:tb:edt:page tkb TO $w $k $a }
  200.  
  201. proc j:tb:edt:page { sfx to w k a } {
  202.   if [j:tb:edt:isForw $w] {
  203.     j:tkb:scroll_down
  204.   } else {
  205.     j:tkb:scroll_up
  206.   }
  207. }
  208.  
  209. #####################################################################
  210.  
  211. proc j:tkb:edt:del-char { w k a } { j:tb:edt:delChar tkb $w $k $a }
  212.  
  213. proc j:tb:edt:delChar { sfx w k a} {
  214.   global j_tkb
  215.   
  216.   if [j:tb:edt:isForw $w] {
  217.     set j_tkb(edtcharbuf,$w) [$w get insert insert]
  218.     j:$sfx:delete_right $w $k $a
  219.   } else {
  220.     set j_tkb(edtcharbuf,$w) [$w get {insert - 1 char} {insert - 1 char}]
  221.     j:$sfx:delete_left $w $k $a
  222.   }
  223. }
  224.  
  225. proc j:tkb:edt:restore-char { w k a } {
  226.   global j_tkb
  227.   if [info exists j_tkb(edtcharbuf,$w)] {
  228.     j:text:insert_string $w $j_tkb(edtcharbuf,$w)
  229.   }
  230. }
  231.  
  232. proc j:tkb:edt:del-word { w k a } { j:tb:edt:delWord tkb $w $k $a}
  233.  
  234. proc j:tb:edt:delWord { sfx w k a } {
  235.   global j_tkb
  236.   
  237.   if ![info exists j_tkb(edt-word-warned)] {
  238.     j:alert -text "word buffer not implemented"
  239.     set j_tkb(edt-word-warned) 1
  240.   }
  241.   if [j:tb:edt:isForw $w] {
  242.     j:$sfx:delete_right_word $w $k $a
  243.   } else {
  244.     j:$sfx:delete_left_word $w $k $a
  245.   }
  246. }
  247.  
  248. proc j:tkb:edt:restore-word { w k a } {
  249.   j:tb:beep $w
  250. }
  251.  
  252. proc j:tkb:edt:del-eol { w k a } {
  253.   j:text:delete [$w index insert] [$w index "insert lineend"]
  254. }
  255.  
  256. proc j:tkb:edt:del-line { w k a } {
  257.   global j_tkb
  258.   
  259.   set start [$w index insert]
  260.   set final [$w index "insert lineend + 1 char"]
  261.   set j_tkb(edtlinebuf,$w) [$w get $start $final]
  262.   j:text:delete $w $start $final
  263. }
  264.  
  265. proc j:tkb:edt:restore-line { w k a } {
  266.   global j_tkb
  267.   if [info exists j_tkb(edtlinebuf,$w)] {
  268.     j:text:insert_string $w $j_tkb(edtlinebuf,$w)
  269.   }
  270. }
  271.  
  272. proc j:tkb:edt:ins-buffer { name w k a } {
  273.   set oldpos [$w index insert]
  274.   # j:tb:edt:buf:get $w $name insert            ########
  275.   $w mark set insert $oldpos
  276. }
  277.  
  278. #####################################################################
  279.  
  280. proc j:tkb:edt:page { w k a } {
  281.   if [j:tb:edt:isForw $w] {
  282.     j:tkb:scroll_down $w $k $a
  283.   } else {
  284.     j:tkb:scroll_up $w $k $a
  285.   }
  286. }
  287.  
  288. #####################################################################
  289.  
  290. proc j:tkb:edt:advance { w k a } {
  291.   j:tb:edt:setForw $w
  292. }
  293.  
  294. proc j:tkb:edt:backup { w k a } {
  295.   j:tb:edt:setBack $w
  296. }
  297.  
  298. #####################################################################
  299. #####################################################################
  300. # Internally used routines
  301. #####################################################################
  302. #####################################################################
  303.  
  304.  
  305. #####################################################################
  306. # Prodecure set for editing direction handling
  307.  
  308. proc j:tb:edt:isForw { w } {
  309.   global j_ed
  310.   
  311.   if { ! [info exists j_ed(edt,$w,forward)]} {
  312.     set j_ed(edt,$w,forward) 1
  313.   }
  314.   return $j_ed(edt,$w,forward)
  315. }
  316.  
  317. proc j:tb:edt:setForw { w } { global j_ed; set j_ed(edt,$w,forward) 1 }
  318. proc j:tb:edt:setBack { w } { global j_ed; set j_ed(edt,$w,forward) 0 }
  319.  
  320. ######################################################################
  321. # following are from Achim's file "jediInit.tcl":
  322.  
  323. #####################################################################
  324. # Buffer handling. 2 modes:
  325. #
  326. #    - passed by indices  {1/0 on success/failure)
  327. #        j:tb:edt:buf:insert $w $bufname $start $final
  328. #        j:tb:edt:buf:get    $w $bufname $start
  329. #
  330. #    - passed as text (alla read/write file)
  331. #        j:tb:edt:buf:write $w $name $text
  332. #        j:tb:edt:buf:read  $w $name  -> return text or {}
  333. #
  334.  
  335. proc j:tb:edt:buf:insert { w name start final } {
  336.   global j_ed
  337.   set j_ed(buf,$w,$name) [$w get $start $final]
  338. }
  339. proc j:tb:edt:buf:write { w name text } {
  340.   global j_ed
  341.   set j_ed(buf,$w,$name) $text
  342. }
  343.  
  344. proc j:tb:edt:buf:get { w name start} {
  345.   global j_ed
  346.   if [info exists j_ed(buf,$w,$name)] {
  347.     j:text:move $start
  348.     j:text:insert_string $j_ed(buf,$w,$name)
  349.     return 1
  350.   } else {
  351.     j:alert -text "$w: Buffer `$name' is empty."
  352.     return 0
  353.   }
  354. }
  355. proc j:tb:edt:buf:read { w name } {
  356.   global j_ed
  357.   if [info exists j_ed(buf,$w,$name)] {
  358.     return $j_ed(buf,$w,$name)
  359.   } else {
  360.     j:alert -text "$w: Buffer `$name' is empty."
  361.     return {}
  362.   }
  363. }
  364.